home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / dbase / tpcmen.zip / TPCMENU.PRG < prev   
Text File  |  1989-07-13  |  2KB  |  48 lines
  1. SET ECHO OFF
  2. SET TALK OFF
  3. SET STAT OFF
  4. SET ESCA OFF
  5. LOAD TPCMENU
  6. SET COLOR TO RG+/N
  7. @ 10,20 SAY "┌───────────────────────────────────────┐"
  8. @ 11,20 SAY "│          M A I N   M E N U            │"
  9. @ 12,20 SAY "├───────────────────────────────────────┤"
  10. @ 13,20 SAY "│              OPTION #1                │"
  11. @ 14,20 SAY "│              OPTION #2                │"
  12. @ 15,20 SAY "│              OPTION #3                │"
  13. @ 16,20 SAY "└───────────────────────────────────────┘"
  14. CHOICE     = 1        && THE NUMBER OF THE CHOICE
  15. KEY        = 0        && KEY THAT WAS PRESSED
  16. UNDER      = ''       && VARIABLE USED TO RETURN WHAT IS UNDER THE LIGHTBAR
  17. VERT_SPACE = 0        && THE NUMBER OF VERTICAL SPACES
  18. OTHER_KEY  = '*;*'
  19. *              │
  20. *              └──────── CHR(59) = SCAN CODE FOR THE F1 KEY
  21. *
  22. DO LBAR WITH CHOICE,0,13,21,3,1,3,2,39,14,78
  23. *              │    │  │  │ │ │ │ │  │  │  │
  24. *              │    │  │  │ │ │ │ │  │  │  └───(11) BAR COLOR
  25. *              │    │  │  │ │ │ │ │  │  └──────(10) COLOR FOR THE BACKGROUND
  26. *              │    │  │  │ │ │ │ │  └──────────(9) WIDTH OF THE LIGHTBAR
  27. *              │    │  │  │ │ │ │ └─────────────(8) HORIZONTAL SPACES BETWEEN CHOICES
  28. *              │    │  │  │ │ │ └───────────────(7) TOTAL NUMBER OF CHOICES
  29. *              │    │  │  │ │ └─────────────────(6) TOTAL NUMBER OF COLLUMNS
  30. *              │    │  │  │ └───────────────────(5) TOTAL NUMBER OF ROWS
  31. *              │    │  │  └─────────────────────(4) UPPER LEFT COLLUMN OF THE FIRST
  32. *              │    │  │                            COLLUMN
  33. *              │    │  └────────────────────────(3) UPPER LEFT ROW OF FIRST CHOICE
  34. *              │    └───────────────────────────(2) NUMBER OF ROWS BETWEEN MENU ROWS
  35. *              └────────────────────────────────(1) FIRST OPTION TO BE HILITED
  36. IF KEY=1
  37.    @ 18,30 SAY 'YOU PRESSED THE ESCAPE KEY'
  38. ENDIF
  39. IF KEY=28
  40.    @ 18,30 SAY 'YOU PRESSED THE ENTER KEY'
  41. ENDIF
  42. IF KEY=59
  43.    @ 18,30 SAY 'YOU PRESSED THE F1 KEY'
  44. ENDIF
  45. @ 19,30 SAY 'YOU CHOSE #'+LTRIM(RTRIM(STR(CHOICE)))
  46. @ 20,30 SAY 'THE OPTION UNDER THE LIGHTBAR WAS: '+LTRIM(UNDER)
  47. RELE MODU TPCMENU
  48.